home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 10 / Tiger_Disk_010_19xx_Tiger-Crew-Disk_de_Side_A.d64 / dos in basic (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  77 lines
  1. 6 poke53281,0:poke53280,11
  2. 10 gosub10021
  3. 20 print:ifpeek(828)<>77thenpoke828,77:a$="$":print"[147]";:goto35
  4. 30 poke198,1:poke631,29:print"[196][207][211]: [148]"chr$(34)chr$(34)chr$(20)"[157]";:input#9,a$
  5. 31 printchr$(13)"[145][145]"
  6. 33 ifa$="[196][207][211]"thenpoke198,1:poke631,13:print"[196][207][211]: ";:input#9,a$:goto31
  7. 34 print"";
  8. 35 ifa$=""then510
  9. 36 ifleft$(a$,1)="w"thend=val(mid$(a$+"8",2,1)):save"0:dos in basic",d:run
  10. 37 ifa$="x"ora$="q"thenclr:poke828,0:list6789-
  11. 40 print:ifleft$(a$,1)<>"$"then200
  12. 50 open1,8,0,a$:get#1,a$,a$:ifa$=""then500
  13. 55 ifpeek(788)=49thenpoke788,52
  14. 60 get#1,a$,a$,a$,b$:ifst=0thenprintasc(a$+z$)+256*asc(b$+z$);
  15. 65 ifstthen120
  16. 70 get#1,a$,b$,c$,d$,e$,f$,g$,h$,i$,j$,k$,l$,m$,n$,o$,p$,q$,r$,s$,t$,u$,v$,w$,x$,y$,z$
  17. 80 printa$b$c$d$e$f$g$h$i$j$k$l$m$n$o$p$q$r$s$t$u$v$w$x$y$z$;
  18. 90 ifz$<>""thenget#1,a$,z$:printa$z$;:goto90
  19. 95 z$=chr$(0)
  20. 100 geta$:ifa$=""then110
  21. 101 ifa$=""then120
  22. 105 geta$:ifa$=""then105
  23. 106 ifa$=""then120
  24. 110 ifst=0thenprint:goto60
  25. 120 close1:ifpeek(788)=52thenwait56321,128:poke788,49
  26. 125 ifa$=""thenrun
  27. 130 print"[217]ou may move the cursor to a [196][201][210][197][195][212][207][210][217]
  28. 131 [153]"line and press (NULL)val(NULL)(NULL)(NULL)(NULL) to (NULL)(NULL)atnstr$ or (NULL)(NULL)(NULL)
  29. 132 print"or put s,r or c at left to [211][195][210][193][212][195][200],
  30. 133 [153]"(NULL)val(NULL)atn(NULL)val, or len(NULL)(NULL)(NULL) that file.";
  31. 140 [138]
  32. 200 p$[178][201](a$,3):[139]p$[179][177]"prg"[175]p$[179][177]"seq"[175]p$[179][177]"rel"[167][152]15,a$:[138]
  33. 205 [153]"load":[129]i[178]1[164][195](a$):[139][202](a$,i,1)[179][177][199](34)[167][130]:[137]399
  34. 210 s[178]i[170]1:[129]i[178]s[164][195](a$):[139][202](a$,i,1)[179][177][199](34)[167][130]
  35. 220 n$[178][202](a$,s,i[171]s):c$[178][200](a$,1):[139]c$[179][177]"^"[175]c$[179][177]"/"[175][197](c$)[178]0[167]250
  36. 230 [139]p$[179][177]"prg"[167][153]a$:[153]"not program":[138]
  37. 240 [153]"load"[199](34)n$[199](34)",8"
  38. 241 [153]"load"[199](34)n$[199](34)",8,3return";
  39. 242 [153]"press returnwait to load "[199](34)n$[199](34)
  40. 243 [153]"or shiftwait+run/stopwait to load & run"
  41. 244 [153]"for machine language programs --
  42. 245 print"press shift[146]+return[146] then press return[146]
  43. 246 [153]"to bload "[199](34)n$[199](34)"";:[151]828,0:[128]
  44. 250 [143] process special commands
  45. 251 [139]c$[178]"s"[167][153]"scratch: "n$:[133]"ok  ycmdcmdcmd";a$:[139]a$[178]"y"[167]a$[178]c$[170]":"[170]n$:[137]200
  46. 260 [139]c$[178]"r"[167][153]"rename: "n$:[153]"to: ";:[132]9,a$:a$[178]c$[170]":"[170]a$[170]"="[170]n$:[137]200
  47. 270 [139]c$[178]"c"[167][153]"copy: "n$:[153]"to: ";:[132]9,a$:a$[178]c$[170]":"[170]a$[170]"="[170]n$:[137]200
  48. 399 [153]a$:[153]"command rejected.":[138]
  49. 500 [153]"error:"
  50. 510 [132]15,a$,b$,c$,d$:[153]a$","b$","c$","d$:[160]1:[138]
  51. 10000 "gosubloadsys
  52. 10020 "[208]rogram: ""[196][207][211] [201][206] [194][193][211][201][195]"
  53. 10021 goto10123:"
  54. 10025 "
  55. 10030 "[193]uthor: [196]on [204]ekei
  56. 10035 "
  57. 10036 "
  58. 10040 "(NULL)his program is provided courtesy of:
  59. 10045 "
  60. 10050 "   (NULL)olidus right$nternational lenorporation
  61. 10060 "   [211]uite #5, 144 [215]est 15th [211]treet
  62. 10070 "   (NULL)orth (NULL)ancouver, peek.len., lenatn(NULL)atnstr$atn
  63. 10075 "   [208]hone: (604)984-0477
  64. 10080 "
  65. 10090 "[212]o get the [205][193][216][201][205][213][205] use out of your new
  66. 10100 "lenommodore-64 computer and 1541 disk
  67. 10110 "drive, we recommend using:
  68. 10123 z$[178][199](0):[143]"gosubonclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseon
  69. 10124 open15,8,15:rem"[141][145][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][145]
  70. 10125 [159]9,0:[143]"gosubonclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseon
  71. 10126 return:rem"[141][145][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][145]
  72. 10130 "gosub             *** (NULL)(NULL)(NULL)(NULL)val(NULL) ***
  73. 10135 "
  74. 10140 "  ""(NULL)he (NULL)ltimate (NULL)rogram (NULL)anipulation
  75. 10150 "  [211]ystem for [195]ommodore [205]icrocomputers."
  76. 10170 "[141][158][206]ow available at your [195]ommodore dealer.[153]
  77.